 


#for taking input from keyboard 

print "enter your date of birth year ";
$year=<>;
chomp($year);
print "your  age is ",2012-$year,".\n";